home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / e / amigae33a.lha / E_v3.3a / Src.lha / Src / Tools / AmigaLib / interrupts.e < prev    next >
Text File  |  1995-04-01  |  452b  |  29 lines
  1. OPT MODULE
  2.  
  3. MODULE 'graphics/graphint',
  4.        'hardware/intbits'
  5.  
  6. EXPORT PROC addTOF(i:PTR TO isrvstr, p, a)
  7.   i.code:={ttskasm}
  8.   i.iptr:=i
  9.   i.ccode:=p
  10.   i.carg:=a
  11.   AddIntServer(INTB_VERTB, i)
  12. ENDPROC
  13.  
  14. EXPORT PROC remTOF(i:PTR TO isrvstr)
  15.   RemIntServer(INTB_VERTB, i)
  16. ENDPROC
  17.  
  18. EXPORT PROC waitbeam(pos)
  19.   WHILE pos>VbeamPos() DO NOP
  20. ENDPROC
  21.  
  22. ttskasm:
  23.   MOVE.L $1A(A1), -(A7)
  24.   MOVEA.L $16(A1), A0
  25.   JSR (A0)
  26.   ADDQ.L #4, A7
  27.   MOVEQ.L #0, D0
  28.   RTS
  29.